Entwickler-Ecke
Dateizugriff - Shellexecute irgend was falsch?
foxy - Fr 21.02.03 14:41
Titel: Shellexecute irgend was falsch?
boa heute iss ma wieder einer der tage an dem am besten im bett geblieben wäre :(
kann mir ma einer sagen was da falsch ist??
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TfrmInfD.BitBtn1Click(Sender: TObject);
var ExcelD,ExcelP : String;
begin
ExcelP:= ExtractFilePath(Paramstr(0))+'\Files\';
ExcelD:= ExtractFileName(ExtractFilePath(Paramstr(0))+'\Files\Db.xls');
If FileExists(ExtractFilePath(Paramstr(0))+'\Files\Db.xls') then
Begin
If IstObjectActiv('Excel.Application') then ShowMessage('Excel ist activ!!!');
ShellExecute(Application.Handle, 'open' ,PChar(ExcelD),nil,PChar(ExcelP),sw_ShowNormal);
end
else
ShowMessage('Datei nicht vorhanden!'); |
speziell shellexecute ... er bringt keinen fehler .. er öffnet nur eben excel nicht :?
der dateinamen und pfad stimmt habe ich per breakpoints schon überprüft ... die file exsitiert er kommt auch bis in die zeile von shellexecute, nur er öffnet eben nich das programm ...
Anonymous - Fr 21.02.03 14:50
Nur so als Info:
ExtractFilePath liefert den Pfad mit einem "\" am Ende;
ExtractFileDir liefert den Pfad ohne ein "\" am Ende.
Überprüfe deinen Code auf diese Punkte. Vielleicht war es das schon.
matze - Fr 21.02.03 19:36
das application.handle kannst du auch rauslassen und durch 0 ersetzten und das open würd ich durch nil ersetzten !
Delete - Sa 22.02.03 00:47
| matze hat folgendes geschrieben: |
| das application.handle kannst du auch rauslassen und durch 0 ersetzten und das open würd ich durch nil ersetzten ! |
Gibt es dafür irgendeine Begründung, die geforderten Parameter weg zu lassen? :roll:
matze - Sa 22.02.03 12:00
nicht wirklich, aber ich mach es immer so, denn in der OH ist auch nicht wirklich beschrieben, was die bringen !
Delete - Sa 22.02.03 17:48
Na dann versuch mal mit Shellexecute eine Textdatei zu drucken, das geht nämlich auch, ohne Hilfe des zweiten Parameters.
| Zitat: |
hwnd
[in] Handle to a parent window. This window receives any message boxes that an application produces, such as error reporting.
lpOperation
[in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. ...
|
matze - So 23.02.03 11:01
aha danke !
foxy - So 23.02.03 16:46
jaja habs geht scho danke ;)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!