Kopiere data til eksternt program (Notepad)

Du skal gemme dine data fra TMemo med Memo1.Lines.SaveToFile('C:\Test.txt')
Herefter kan du vise indholdet i notepad med kommandoen:
RunExecutable('Notepad.exe C:\test.txt',true);

Så mangler du blot at slette filen, når du er færdig.

nca >>> det er lige det, der er humlen - der skal ikke være nogen fil, som først kan slettes, efter brugeren er færdig med Notepad.

slowaterz -> Prøv med det her:

procedure SetNotepadText(S: String);
var
Handle:HWND;
I:Integer;
begin
    Handle := FindWindowEx(FindWindow( 'notepad', nil ),0,'Edit',nil);
    SendMessage(Handle, WM_SETTEXT,0,Integer(S));
end;

hejhej >>> hvordan får jeg startet Notepad op, for at kunne bruge din metode ? Hvis jeg bruger ShellExecute(), kommer der ikke noget over. Hvis jeg så går tilbage til mit program og klikker en gang til, fremkommer der en ny Notepad, men teksten bliver nu kopieret over til den første Notepad.

>>hejhej
Det virker fint

nca >>> den RunExecutable() rutine, du kalder - er det en, du selv har skrevet ?

Ja, men det er kun for at kunne styre, om jeg skal vente på at min exe-fil er afsluttet.
Dit problem ligger i at der skal indstættes et delay.
Prøv at indsætte en timer, der venter 1 sek efter at du har kaldt notepad og herefter fyrer hejhej's kode af. Det virker hos mig.

Hvis der er nogen, det interesserer, så er koden, som virker :


procedure TFormMain.BtnCopyClick(Sender: TObject);
var
  pHandle: HWND;
begin
  ShellExecute(Handle, 'open', PChar('C:\WINNT\system32\NotePad.exe'), '', '', sw_ShowNormal);
  Sleep(500);
  pHandle := FindWindowEx(FindWindow('notepad', nil ), 0, 'Edit', nil);
  SendMessage(pHandle, WM_SETTEXT, 0, integer(MemoResult.Text));
end;

Ups.. Unskyld jeg ikke svarede, kom til at lukke mit mail program.