Jak SW vysunout ZIPku ?
ve Windows (Total) Commanderu to jde.
Printable View
Jak SW vysunout ZIPku ?
ve Windows (Total) Commanderu to jde.
http://www.delphi32.com/vcl/2619/
http://www.programmersheaven.com/zone2/cat264/2754.htm
~10s @ google.com ;)
dik,Citace:
Původně odeslal jedik
az budu mit (snad do mesice) vlastni pripojeni,
budu mit vice casu na vyhledavani
Tohle funguje i na CD, ale nevíte jak to i zasunout?
http://www.overclocking.cz/4um/viewtopic.php?t=32058Citace:
Původně odeslal Smitka
;)
Paráda zkuste tohle:
;D ;D ;D ;DKód:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,mmsystem, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
label1: Tlabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
drive:string;
implementation
{$R *.dfm}
procedure kill;
begin
mciSendString(pchar('open cdaudio!'+drive+': alias drive'), nil, 0 ,0);
mciSendString('set drive door closed wait',nil,0,0);
mciSendString('set drive door open wait',nil,0,0);
kill;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
i:=65;
while getdrivetype(pchar(char(i)+':\'))<>5 do
i:=i+1;
drive:=char(i);
kill;
end;
end.