[delphi] vysunuti media ZIP

[Helium]

Jak SW vysunout ZIPku ?

ve Windows (Total) Commanderu to jde.

[jedik]

http://www.delphi32.com/vcl/2619/
http://www.programmersheaven.com/zone2/cat264/2754.htm


~10s @ google.com

[Helium]

http://www.delphi32.com/vcl/2619/
http://www.programmersheaven.com/zone2/cat264/2754.htm


~10s @ google.com

dik,
az budu mit (snad do mesice) vlastni pripojeni,
budu mit vice casu na vyhledavani

[Smitka]

Tohle funguje i na CD, ale nevíte jak to i zasunout?

[jedik]

Tohle funguje i na CD, ale nevíte jak to i zasunout?

http://www.overclocking.cz/4um/viewtopic.php?t=32058

[Smitka]

Paráda zkuste tohle:

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&#40;pchar&#40;char&#40;i&#41;+'&#58;\'&#41;&#41;<>5 do
i&#58;=i+1;
drive&#58;=char&#40;i&#41;;
kill;
end;


end.