Entwickler-Ecke

Windows API - Frage zu ShellExecute


foxy - Di 21.01.03 11:25
Titel: Frage zu ShellExecute
Guden all ma ne Frage
Also der Befehl für ShellExecute iss ja so

Quelltext 
1:
 
ShellExecute(Application.Handle, 'open' ,PChar('xy.exe'), nil, PChar('c:\test'), sw_ShowNormal);

ich will zu bestimmten Datein, wie .pdf ;.doc etc. die bestimmten Programme öffnen dazu extrhiere ich die endung der Datein und suche in der registry nach den dazugehörigen programmen und zwar so
GetExe(ExtractFileExt(pfad));

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
 
function GetExe(Ext:string):string;
var reg    : TRegistry;
    s      : String;
Begin
  s:='';
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CLASSES_ROOT;
  if reg.OpenKey('.'+ext+'\shell\open\command', false) then
   begin
    s:=reg.ReadString('');
    reg.CloseKey;
  end
  else begin
    if reg.OpenKey('.'+ext, false) then begin
      s:=reg.ReadString('');
      reg.CloseKey;
      if s<>'' then begin
        if reg.OpenKey(s+'\shell\open\command', false) then
          s:=reg.ReadString('');
          reg.CloseKey;
      end;
    end;
  end;
  if Pos('%', s)>0 then
    Delete(s, Pos('%', s), length(s));
  if ((length(s)>0) and (s[1]='"')) then
    Delete(s, 1, 1);
  if ((length(s)>0) and (s[length(s)]='"')) then
    Delete(s, Length(s), 1);
  while ((length(s)>0) and
   ((s[length(s)]=#32) or (s[length(s)] = '"'))) do
    Delete(s, Length(s), 1);
  result := s;
end;

aber jetzt habe ich das problem wie ich das in shellexecute einbaue, da ich ja variablen pfad habe und variable namen der .exe dateien....


smiegel - Di 21.01.03 11:32
Hallo,

den Aufwand, den Du mit der Registry betreibst, ist in Deinem Fall nicht notwendig. Wenn z.B. der Acrobat Reader installiert ist, den ist der Dateityp pdf bereits registriert. Dadurch genügt es, Shellexecute mit dem Namen der Datei aufzurufen (ähnlich wie ein Doppelklick im Explorer).


Quelltext 
1:
 
ShellExecute(Application.Handle, 'open' ,PChar('Tutorial.pdf'), nil, nil, sw_ShowNormal);


foxy - Di 21.01.03 11:33
ja?? hmmm dann hat mir einer quatsch erzählt :lol: dann versuch ich das ma so vielen dank für die hilfe


foxy - Di 21.01.03 11:55
hmm also ich habe das nu so gemacht

Quelltext 
1:
2:
 
name := ExtractFileName(Table1.FieldByName('File').AsString);
ShellExecute(Application.Handle, 'open' ,PChar(name), nil, nil, sw_ShowNormal);

aber dann kommt da

Diagramm1.bmp ist kein gültiger komponentenname
in der zeile wo execute steht??? mach ich was falsch??


smiegel - Di 21.01.03 12:04
Hallo,

Du musst schon den Pfad zu dem Dokument mit angeben. Woher soll sonst Shellexecute wissen, wo sich die Datei genau befindet.


foxy - Di 21.01.03 13:04
hmm geht imma noch nich ... :(
so sieht mein code aus

Quelltext 
1:
2:
3:
4:
 
name := ExtractFileName(Table1.FieldByName('File').AsString);
    path:=ExtractFilePath(Table1.FieldByName('File').AsString);

    ShellExecute(Application.Handle, 'open' ,PChar(name), nil, PChar(Path), sw_ShowNormal);

kommt der selbe fehler !! ka was das iss .... das mit dem komponentenNamen


foxy - Di 21.01.03 13:41
iss ok hab den fehler gefunden,
name die variable habe ich nich definiert und die wird standartmässig definiert über die Uses ShellAPI dabei iss name eine komponente wenn man nun name deklariert als String dann gehts thx an alle


smiegel - Di 21.01.03 16:16
Hallo,

es geht noch kürzer:
Du musst Deinen Dateinamen nicht zerlegen. Wundert mich, dass das so geht.


Quelltext 
1:
 
ShellExecute(Application.Handle, 'open' ,PChar(Table1.FieldByName('File').AsString), nil, nil, sw_ShowNormal);


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!