ShellExecute

nej sådan her :

ShellExecute(Handle, \'open\', pchar(label1.caption), \'\', \'\', SW_NORMAL);

jens B

:-)

Hm hva så hvis man skal ha noget til at stå efter..

nu er det regsvr jeg skal ha fat i dvs at i label1.caption står der c:\\windows\\system\\regsvr.exe og efter den skal jeg helst kunne skrive c:\\windows\\system\\idrop.ocx
så den registrer OCX filen

Hov lige en ting mere, den kode du hjalp mig med i
http://www.eksperten.dk/spm/79101
Er det muligt at læse den tekst fil igennem og vær gang den kommer til en fil der ender på ocx så skal den register den?
Du skal nok få lidt flere point for det :)

så skal du ud i noget lidt andet fordi, du ved aldrig præcvis hvor dit system biblotek ligger. Det er afhænigt af hvilket OS du kører og hvor det er instaleret etc. Du skal spørge Windows om hvor det ligger.

Så du må ikke have nogen path i din label;

PRøv det her :

function GetSystemDirectory: string;
begin
  SetLength(Result, MAX_PATH);
  Windows.GetSystemDirectory(PChar(Result), MAX_PATH);
  SetLength(Result, Pred(Pos(#0, Result)));
end;


var
  s,t : String;
begin
  s:= GetSystemDirectory + #92 + label1.caption;
  t:= GetSystemDirectory + #92 + \'idrop.ocx\'
  ShellExecute(Handle, \'open\', pchar(s+#32+t), \'\', \'\', SW_NORMAL);
end;

Jens B