Shellexecute hva?

Hejsa
Prøv med denne, som starter åbner filen c:test.txt i notebook.exe:

procedure TFrmVandLet.cmdFejllogClick(Sender: TObject);
var cmdbuffer: array[0..80] of Char;
begin
  strpcopy(cmdbuffer, 'notepad.exe c:text.txt');
  WinExec(cmdbuffer, SW_Show);

end;
Mvh Pjotre

du kan læse mere i hjælpefilen: Win32 Programmer's Reference

hvis du har en normal delphi7 installation ligger hjælpefilen under:
start -> alle programmer -> borland delphi 7 -> help -> MS SDK Help Files ->

og så skal du vist have "shellapi" med under "uses", for at den kan genkende shellexecute

har før kaldt et andet program fra mit delphi program således:

-----
Procedure KaldProgram(Program:String;ParamStr:String);
var
  SEInfo    : TShellExecuteInfo;
  ExitCode  : DWORD;
  ExecuteFile: string;
begin
  ExecuteFile := Program;
  ParamStr    := Paramstr + #0;

  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);

  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@SEInfo) then begin
    repeat
      Application.HandleMessage;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;

    // her kan du evt indsætte kode som skal eksekveres efter du har afsluttet
    // det kaldte program og er vendt tilbage til dit delphiprogram..
   
  end
  else
  begin
    Messagedlg('Kan ikke finde '+Program,mterror,[mbOk],0);
  end;
end;

-----

Nu kan du så et sted i dit program skrive sådan her
hvis du vil kalde notepad og åbne text.txt:

KaldProgram('notepad.exe', 'text.txt');



eller sådan hvis du bar vil starte lommeregneren:
KaldProgram('calc.exe', '');

Du skal huske at have olectrs i din uses-sætn.: fx

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls;

janbb> det er "shellapi" der skal være i uses-sætningen..

funktionen ShellExecute ligger i filen:
c:\Programmer\Borland\Delphi7\Source\RTL\Win\ShellAPI.pas

så det må være shellapi der skal "uses"

Nå Ja :)

Det handler vistnok osse om at shellexecute ikke kan dirigeres til bestemt bibl.
Derfor skal man sikre sig at bibbet er stillet til der hvor det ønskede progr. ligger..

Har selv fået anbefalet denne rutine engang, som stadig er funktionel:

procedure ChaDir(S: string);
begin
S:='C:\Programmer\Borland\Database Desktop\PrivDir';
ChDir('C:\Programmer\Borland\Database Desktop\PrivDir');
if IOResult <> 0 then
Messagedlg('dir eksisterer ikke',mtWarning, [mbOk],0);
end;

procedure buttonclick(sender:Tobject);
begin
ChaDir('C:\Programmer\Borland\Database Desktop\PrivDir');




Shellexecute(handle,'open',PChar(dbedit2.text),nil,nil,sw_show);
end;

hmann >> har ik lige en maskine med delphi til rådighed nu, men skal nok gi point, når jeg har undersøgt sagen =}

Hallandsen

okay ;)

bare vend tilbage, så skal vi nok få det til at virke..

Tak hmann

Det virker

Har lige rettet "program" til "programmet", da "program" er et reserveret ord og "ParamString"-stavefejlen til "ParamStr".

Du får dine point.

Hilsen Hallandsen, korrupt bagmand

undskyld småfejlene - det var ikke kopieret direkte fra min egen kode - noget af det var fra fri hukommelse og selvfølgelig er "program" et reserveret ord :)

takker for points..