Filhåndtering

KillTask

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot
                     (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL(0),
                        FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32);
  end;

  CloseHandle(FSnapshotHandle);
end;

Hvis den kommer men nogen fejl. Så prøv at tilføje en af dem her til din uses liste: TLHelp32, ShellApi. Mener nok det er tlhelp32 men er ikke sikker.

Hej Michael,
det er faktisk ret simpelt. Der findes en funktion der hedder GetEnvironmentVariableA, hvorfra du kan hente stien.

const cnMaxVarValueSize = 250;
function GetEnvVar(const csVarName : string ) : string;
var
  pc1,
  pc2  : PChar;
begin
  pc1 := StrAlloc( Length( csVarName )+1 );
  pc2 := StrAlloc( cnMaxVarValueSize + 1 );

  StrPCopy( pc1, csVarName );
  GetEnvironmentVariableA(pc1, pc2, cnMaxVarValueSize );

  Result := StrPas( pc2 );
  StrDispose( pc1 );
  StrDispose( pc2 );
end;

for så at få en variable bruger du GetEnvVar('ProgramFiles'); for så at få "C:\\programmer"

klarer det hele. Har lavet et lille eksempel på brugen af det som du kan hente på http://peecee.dk/?id=32672

Med hensyn til det andet spørgsmål, du kan godt, har dog aldrig rigtigt leget med det.. men læs følgende artikel fra about.org, den skulle gerne give dig en god introduktion til at lege med "resources"

http://delphi.about.com/od/objectpascalide/l/aa113099a.htm

Vil jeg lige se på men har lige et spørgsmål til.

Hvordan får jeg en then til at udføre mere en en opgave

Vil nemlig gerne havde den til at, rename msnmsgr.bak og poppe op med en popup box efter den har udført dette

  If FileExists('C:\\Programmer\\MSN Messenger\\msnmsgr.bak') Then DeleteFile('C:\\Programmer\\MSN Messenger\\msnmsgr.exe')
  else ShowMessage('Backup failed')    ;

Vil jeg lige se på men har lige et spørgsmål til.

Hvordan får jeg en then til at udføre mere en en opgave

Vil nemlig gerne havde den til at, rename msnmsgr.bak og poppe op med en popup box efter den har udført dette

Kode 

  If FileExists('C:\\Programmer\\MSN Messenger\\msnmsgr.bak') Then DeleteFile('C:\\Programmer\\MSN Messenger\\msnmsgr.exe')
  else ShowMessage('Backup failed')    ;

Så skal du encapsulate then. Altså

if FileExists('blabla') then
begin
ShowMessage('Hej');
ShowMessage('igen');
DeleteFile('bklaba.exe');
ShowMessage('Fil slettet');
end
else ShowMessage('Backup failed');

Tak Decko virkede

Har fået et problem med Getenvar

i dette ProgF + 'MSN Messenger\\msnmsgr.exe',true,) får jeg fejlen
[Error] Unit1.pas(50): Incompatible types: 'String' and 'PAnsiChar' når jeg prøver at compile

Her er hele proceduren

ProgF : String;
begin
ProgF := GetEnvVar('ProgramFiles') + ('\\');
  If FileExists(ProgF + 'MSN Messenger\\msnmsgr.bak')
  then CopyFile('C:\\BT\\Progz\\MSN.8.ADSFREE.FXP-G\\msnmsgr.exe',ProgF + 'MSN Messenger\\msnmsgr.exe',true,)
  Else ShowMessage('Take backup first');

Prøv at sige PChar(ProgF) + osv.

Like this ?

  then CopyFile('C:\\BT\\Progz\\MSN.8.ADSFREE.FXP-G\\msnmsgr.exe',PChar(ProgF) + 'MSN Messenger\\msnmsgr.exe',true,)

Får samme fejl

Såvidt jeg lige kan se bruger CopyFile PChar til alle parametre (undtagen det sidst som er boolean). Så prøv at sige

then CopyFile(PChar('C:\\BT\\Progz\\MSN.8.ADSFREE.FXP-G\\msnmsgr.exe'),PChar(ProgF) + PChar('MSN Messenger\\msnmsgr.exe'),true,)

  If FileExists(ProgF + 'MSN Messenger\\msnmsgr.bak') then
    begin
      CopyFile(PChar('C:\\BT\\Progz\\MSN.8.ADSFREE.FXP-G\\msnmsgr.exe'),PChar(ProgF) + PChar('MSN Messenger\\msnmsgr.exe'),true,)    ;
      ShowMessage('Patching succesful');
    end
  Else ShowMessage('Take backup first');

Linie 3 melder fejl med

[Error] Unit1.pas(54): Operator not applicable to this operand type

Hov, der skal da ikke være et komma før ). Prøv lige at fjerne det.