Guten Abend,
heute habe mich mit ein neues project vorgenommen undzwar will ich lauter buttons haben, mit meinen meistgenutzten anwendungen drauf habe die ich benötige, nun gut, ich habe einen code gedfunden womit ich exe dateien öffnen kann,
nur wie mache ich das mit ordnern die ich öffnen will?
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:
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellAPI, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, Pchar('open'), Pchar('D:\Download´s\Steam Account Manager.exe'), nil, nil, SW_SHOWNORMAL);
end;
end. |
ich habe mir gedacht das das der gleiche code sein wird , also
"ShellExecute(Application.Handle, Pchar('open'), Pchar('D:\Download´s\'), nil, nil, SW_SHOWNORMAL);"
nur bei users muss ich anstatt, ", StdCtrls;" was anderes hinmachen?
kann das sein?
Moderiert von 
Narses: Topic aus VCL (Visual Component Library) verschoben am So 25.05.2008 um 22:52
