<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>
<body bgcolor="#FFFFFF">
<p>Hallo, im Delphi-Forum wurde gefragt, wie man eine Diskette
formatieren kann. Den Tip von Andreas würde ich auch gern
umsetzen, aber es funktioniert nicht. Was mache ich falsch ?
Danke für jede Antwort !!</p>
<pre>
<font color="#008040">#define SHFMT_ID_DEFAULT 0xFFFF
#define SHFMT_OPT_QUICKFORMAT 0x0000</font>
<strong>void</strong> <strong>__fastcall</strong> TForm1:isketteformatieren1Click(TObject *Sender)
{
HINSTANCE hDllLib=LoadLibrary(<font color="#0000A0">"shell32.dll"</font>);
<strong>long</strong> __stdcall FormatDrive;
<strong>long</strong> x=-1;
<strong>if</strong>((<strong>int</strong>)hDllLib<32) Error(<font
color="#0000A0">"LoadLibrary fehlgeschlagen"</font>);
<strong>else</strong>
{
FormatDrive=(<strong>long __stdcall</strong>)GetProcAddress(hDllLib,<font
color="#0000A0">"SHFormatDrive"</font>);
<strong>if</strong>(FormatDrive!=NULL)
<font color="#0000FF">x=FormatDrive(Handle,0,SHFMT_ID_DE FAULT, SHFMT_OPT_QUICKFORMAT);</font>
<font color="#FF0000"><strong>// Compiler-Fehler: Call of nonfunction</strong></font>
FreeLibrary(hDllLib);
}
<strong>if</strong>(x<0) Error(<font color="#0000A0">"Formatierung ist fehlgeschlagen"</font>);
<strong>else</strong> Info(<font color="#0000A0">"Diskette erfolgreich formatiert"</font>);
<em>// Error() und Info() sind zwei Funktionen von mir, die eine MessageBox anzeigen</em>
}
</pre>
</body>
</html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>
<body bgcolor="#FFFFFF">
<p>Hallo, im Delphi-Forum wurde gefragt, wie man eine Diskette
formatieren kann. Den Tip von Andreas würde ich auch gern
umsetzen, aber es funktioniert nicht. Was mache ich falsch ?
Danke für jede Antwort !!</p>
<pre>
<font color="#008040">#define SHFMT_ID_DEFAULT 0xFFFF
#define SHFMT_OPT_QUICKFORMAT 0x0000</font>
<strong>void</strong> <strong>__fastcall</strong> TForm1:isketteformatieren1Click(TObject *Sender)
{
HINSTANCE hDllLib=LoadLibrary(<font color="#0000A0">"shell32.dll"</font>);
<strong>long</strong> __stdcall FormatDrive;
<strong>long</strong> x=-1;
<strong>if</strong>((<strong>int</strong>)hDllLib<32) Error(<font
color="#0000A0">"LoadLibrary fehlgeschlagen"</font>);
<strong>else</strong>
{
FormatDrive=(<strong>long __stdcall</strong>)GetProcAddress(hDllLib,<font
color="#0000A0">"SHFormatDrive"</font>);
<strong>if</strong>(FormatDrive!=NULL)
<font color="#0000FF">x=FormatDrive(Handle,0,SHFMT_ID_DE FAULT, SHFMT_OPT_QUICKFORMAT);</font>
<font color="#FF0000"><strong>// Compiler-Fehler: Call of nonfunction</strong></font>
FreeLibrary(hDllLib);
}
<strong>if</strong>(x<0) Error(<font color="#0000A0">"Formatierung ist fehlgeschlagen"</font>);
<strong>else</strong> Info(<font color="#0000A0">"Diskette erfolgreich formatiert"</font>);
<em>// Error() und Info() sind zwei Funktionen von mir, die eine MessageBox anzeigen</em>
}
</pre>
</body>
</html>
Comment